﻿Public Class frmReajusteFormaPago

    'Declaracion de variables
    Dim codigoPedido As String = ""
    Dim percepcion As Decimal = 0
    Dim subtotal As Decimal = 0
    Dim igv As Decimal = 0
    Dim total As Decimal = 0

    Sub New(codPedido As String)

        ' Llamada necesaria para el diseñador.
        InitializeComponent()

        ' Agregue cualquier inicialización después de la llamada a InitializeComponent().
        Me.codigoPedido = codPedido

    End Sub

    Sub New()

        ' Llamada necesaria para el diseñador.
        InitializeComponent()

        ' Agregue cualquier inicialización después de la llamada a InitializeComponent().

    End Sub

    Sub iniciar()
        Me.Text = "PEDIDO : " & codigoPedido
    End Sub

    Private Sub frmReajusteFormaPago_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        iniciar()
    End Sub

End Class